home *** CD-ROM | disk | FTP | other *** search
/ PC Open 103 / PC Open 103 CD 1.bin / CD1 / INTERNET / WEBDESIGN / Tsw WebCoder / tswwebcoder5en.exe / {app} / scripts / scriptcode / madewithbuttons.tss next >
Encoding:
Text File  |  2004-04-15  |  2.0 KB  |  89 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Insert a "Made With WebCoder" button
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=0
  6. }
  7. program TSWMadeWith;
  8.  
  9. procedure FormResize(Sender: TObject);
  10. var
  11.  W: TWebBrowser;
  12.  F: TForm;
  13.  P: TPanel;
  14. begin
  15.  W := GetGlobalVar('Browser');
  16.  P := GetGlobalVar('Panel');
  17.  W.SetBounds(1, 1, P.Width-1, P.Height-1);
  18. end;
  19.  
  20. function StringReplace(S, OldPattern, NewPattern: string): string;
  21. var
  22.   SearchStr, Patt, NewStr: string;
  23.   Offset: Integer;
  24. begin
  25.   SearchStr := S;
  26.   Patt := OldPattern;
  27.  
  28.   NewStr := S;
  29.   Result := '';
  30.   while SearchStr <> '' do
  31.   begin
  32.     Offset := Pos(Patt, SearchStr);
  33.     if Offset = 0 then
  34.     begin
  35.       Result := Result + NewStr;
  36.       Break;
  37.     end;
  38.     Result := Result + Copy(NewStr, 1, Offset - 1) + NewPattern;
  39.     NewStr := Copy(NewStr, Offset + Length(OldPattern), 2147483647);
  40.     SearchStr := Copy(SearchStr, Offset + Length(Patt), 2147483647);
  41.   end;
  42. end;
  43.  
  44. function CleanCode(s: string) : string;
  45. var
  46.  i: integer;
  47. begin
  48.  s := StringReplace(s, '%20', ' ');
  49.  while(Pos('%', s) > 0) do
  50.   Delete(s, Pos('%', s), 3);
  51.  Result := s; 
  52. end;
  53.  
  54. procedure OnNavigate(Sender: TObject;
  55.   const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  56.   Headers: OleVariant; var Cancel: WordBool);
  57. begin
  58.  InsertTags((CleanCode(Copy(URL, Pos('code=', URL)+5, Length(URL)))), '');
  59. end;
  60.  
  61.  
  62. var
  63.  W: TWebBrowser;
  64.  F: TForm;
  65.  P: TPanel; 
  66. begin
  67.  F := TForm.Create(nil);
  68.  F.Width := 500;
  69.  F.Height := 350;
  70.  F.Position := poScreenCenter;
  71.  F.Caption := 'TSW WebCoder buttons';
  72.  P := TPanel.Create(F); 
  73.  P.Parent := F;
  74.  P.Align := alClient;
  75.  P.BevelOuter := bvNone;
  76.  P.Name := 'ThisPanel';
  77.  SetGlobalVar('Panel', P);  
  78.  W := TWebBrowser.Create(P);
  79.  W.ParentWindow := P.Handle;
  80.  W.SetBounds(1, 1, P.Width-1, P.Height-1);
  81.  W.Navigate('http://www.tsware.net/madewith_special.php');
  82.  W.OnBeforeNavigate2 := 'OnNavigate';
  83.  SetGlobalVar('Browser', W); 
  84.  P.OnResize := 'FormResize';    
  85.  F.ShowModal;
  86.  F.Release;
  87.  W.Free;
  88. end;
  89.